home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / olrdrs / qwkndt1a.zip / WILDCAT.SCR < prev    next >
Text File  |  1992-11-06  |  2KB  |  61 lines
  1. # Sample script for logging on to a Wildcat board running Tomcat.
  2. # replace FIRSTNAME, LASTNAME, and YOURPASS with your first name,
  3. # last name, and password. This is only a model, and will probably
  4. # need to be modified to some degree.
  5. #
  6. # Wait for "First name?" prompt.
  7. expect "ame?"
  8. send "FIRSTNAME\r"
  9. # Wait for "Last name? prompt.
  10. expect "ame?"
  11. send "LASTNAME\r"
  12. # Wait for "Password:" prompt.
  13. expect "ord:"
  14. send "YOURPASS\r"
  15. # Try to abort any opening screen with ^C
  16. send "\c"
  17. timeout 5
  18. # Wait for end of bulletins menu. Keep hitting ^C <RETURN> until we
  19. # get there.
  20. pausestr "onstop" "S"
  21. expect "to quit:" "\c\r" 10
  22. # Don't read any bulletins, they'll be in the packet anyway. :-)
  23. send "\r"
  24. # Wait for main menu prompt.
  25. expect "W T]:" "\r" 10
  26. # Choose message menu.
  27. send "M"
  28. # Wait for message menu prompt.
  29. expect "F D]:" "\r" 10
  30. # Choose D (runs Tomcat on the board this was written for)
  31. send "D"
  32. # Wait for Tomcat prompt.
  33. expect "Q ?]:" "\r" 10
  34. # Beginning of .REP section, only done if there is a .REP packet
  35. # waiting.
  36. repbegin
  37. # Send upload command.
  38. send "U"
  39. # Wait for "upload FOO.REP now"
  40. expect ".REP now"
  41. # Upload it.
  42. upload
  43. # Wait for Tomcat prompt again.
  44. expect "Q ?]:" "\r" 10
  45. # End of .REP section.
  46. repend
  47. # Choose download command.
  48. send "D" "\r" 10
  49. # Wait for "goodbye after transfer" prompt.
  50. expect "transfer" "\r" 10
  51. # Yes, we want to go bye-bye after transfer.
  52. send "G"
  53. # Wait for "Download FOO.QWK now" message.
  54. expect ".QWK now" "\r" 10
  55. # Download it.
  56. download
  57. # Wait for  "Send H to hangup or <ENTER> to remain online"
  58. expect "online" "S" 10
  59. # Hangup.
  60. send "H"
  61.